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Algorithm Schedule^ I 

Answer:= j j; Pending. := j |; Enabled := | j; 
for each n in leaves^) do computeQueryNode(n); 
while (Enabled i \ \ OR Pending i \ j) 

L := chooseForSchedule(Enabled); /* implements a particular scheduling policy */ 
for each ((?,S) in L do 

Pending := Pending u{((?,S)|; LDAP_issueQuery(Q,S); 
LDAP_waitForEvent(e); 



boolean answer for Q@S: Pending := Pending -|(Q,S)[ 

storeCache(Q,S' l e. value); 
for n in getCacheWaitinglist^,^) do j 
n. value := e. value; 
computeConditionalNode(n. parent)', j 
directory entry for Q@S: Answer := Answer uje.uaiue j 
End-of-Entries for Q@S: Pending := Pending -\(Q,S)\ 



return Answer; 

function computeQueryNode(n) | 

if all n's children are computed then 

Q := generateQueryExpression(n.Query); /* expands all if-macros*/ 
S := n. Server; v := getCache(Q,S); 
case v of 



case e.type of 



INEXISTENT: 




insertCache^.S 1 , Pending); 
Enabled := Enabled u|(Q,S)j; 
addCacheWaitingListfo ,S,n); 



Pending addCacheWaitingLjst(<?,S,n); 
TRUE, FALSE: n. value :=v; 

computeConditionalNode(n.parent) 



function computeConditionalNode(n) | 

if (exist p in n.children such that p.value - TRUE) then 

n. value := TRUE; computeQueryNode( . ); 
else if (all n's children are computed) then 

n.value := FALSE; computeQueryNode(n.parent); 
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